<?php
    include_once '../../../../controlador/php/conexion/Conexion10.php';
    $con = new Conexion10();

    $listado = "Select HCNSOLEXA.OID,ADNINGRESO.AINCONSEC AS INGRESO, 
                CONVERT(NVARCHAR(2000),HCNSOLEXA.HCSOBSERV) AS OBSERVACIONES,HCNSOLEXA.HCSFECSOL AS FECHA_SOLICITUD,
                ltrim(rtrim(GENSERIPS.SIPNOMBRE)) AS MUESTRA,
                GENPACIEN.PACNUMDOC AS DOCUMENTO,RTrim(GENPACIEN.PACPRINOM +' '+
                GENPACIEN.PACSEGNOM +' '+ GENPACIEN.PACPRIAPE +' '+ GENPACIEN.PACSEGAPE) AS NOM_PACIENTE,
                HPNDEFCAM.HCACODIGO AS CAMA,GENSERIPS.SIPCODIGO AS CODIGO,
                Case
                When HCNSOLEXA.HCSESTADO = '0' Then 'URGENTE' Else 'RUTINARIO'
                End ESTADO, 
                Case SLNORDSER.SOSESTADO When 0 Then 'REGISTRADO'
                When 1 Then 'CONFIRMADO' When 2 Then 'ANULADO'
                End As ESTADOORDEN,
                lbseguimiento.segfectom  as fechatoma,lbseguimiento.segestado,lbseguimiento.segfecrec,lbseguimiento.segrecibido,
                lbsinindicacion.indiesta, lbsinindicacion.indifech, lbseguimiento.seginterpretado,lbseguimiento.segfecinte,
                segfactura,segfacfecha,usu_oidf
                From GENPACIEN Inner Join
                ADNINGRESO On GENPACIEN.OID = ADNINGRESO.GENPACIEN Inner Join
                HCNFOLIO On ADNINGRESO.OID = HCNFOLIO.ADNINGRESO Inner Join
                HCNSOLEXA On HCNSOLEXA.HCNFOLIO = HCNFOLIO.OID Inner Join
                GENSERIPS On HCNSOLEXA.GENSERIPS = GENSERIPS.OID Inner Join
                SLNSERHOJ On HCNSOLEXA.SLNSERHOJ = SLNSERHOJ.OID Inner Join
                SLNSERPRO On SLNSERHOJ.OID = SLNSERPRO.OID Inner Join
                SLNORDSER On SLNSERPRO.SLNORDSER1 = SLNORDSER.OID And SLNSERPRO.ADNINGRES1 = SLNORDSER.ADNINGRES1 Left Outer Join
                HPNESTANC On ADNINGRESO.OID = HPNESTANC.ADNINGRES Left Outer Join
                HPNDEFCAM On HPNESTANC.HPNDEFCAM = HPNDEFCAM.OID
                left join planillaUsuario..lbseguimiento on HCNSOLEXA.OID  = planillaUsuario..lbseguimiento.hcnsolexa
                left join planillaUsuario..lbsinindicacion on HCNSOLEXA.OID = planillaUsuario..lbsinindicacion.hcnsolexa
                Where (HCNSOLEXA.HCSFECSOL > CONVERT(DATETIME, GETDATE() - 8, 102))  And
                GENSERIPS.GENARESER1 = '15' And HPNESTANC.HESFECSAL Is Null 
                Order By HCNSOLEXA.HCSFECSOL DESC";
    $res = $con->query($listado);
    while
        ($re = mssql_fetch_array($res)){
        $lista[] = array_map(utf8_encode,$re);
    }
    echo json_encode($lista);
    
    $con->cerrarConexion();             
    
?>
